PROG MOO
WHIL 1
DO
   Z= RAND 5 5 5
   IF +/(Z(1) EQ Z) EQ 1
   THEN 
      IF +/(Z(2) EQ Z) EQ 1
      THEN 
        EXIT
      ENDI
   ENDI
ENDW
"GUESS THE 3 NUMBERS"
WHIL 1 
DO                  
   I=KEYB                 
   IF I(1) EQ 99       
   THEN 
      EXIT
   ENDI
   X=+/(Z EQ I) 
   IF 3 EQ X
   THEN "YOU WIN" 
      EXIT
   ELSE
      C=X
      J=1
      R=0
      WHIL J LE 3    //CORRECT COLOR WRONG SPOT
      DO
         IF Z(J) NE I(J)
         THEN
            R=R+ (+/(Z(J) EQ I ) )
         ENDI
      J=J+1  
      ENDW
   "WHITE/RED"
   C,R
   ENDI
ENDW
ENDP